home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / h.dxr / 00010_OperatingRoomPuzzles.ls < prev    next >
Encoding:
Text File  |  1996-02-15  |  1.5 KB  |  36 lines
  1. global gEnvironmentSound
  2.  
  3. on DoTurnDefibOFF
  4.   set Mobj to getaProp(gObjects, #DefibScreen)
  5.   set curState to getaProp(Mobj, #State)
  6.   if (curState = #defib) or (curState = #Heart) then
  7.     DelObjects(getaProp(getaProp(Mobj, #SpecialChild), getaProp(Mobj, #State)))
  8.     MakeDynamic(#DefibScreen, #State, #off)
  9.     MakeDynamic(#DefibScreen, #DisplayState, #off)
  10.     AddObjects(getaProp(getaProp(Mobj, #SpecialChild), getaProp(Mobj, #State)))
  11.     set the castNum of sprite getaProp(Mobj, #SpriteNum) to getaProp(getaProp(Mobj, #cast), #off)
  12.   end if
  13.   stopsound("H12ekg1.aif")
  14.   stopsound("H12ekg2.aif")
  15. end
  16.  
  17. on DoDefibGO
  18.   set Mobj to getaProp(gObjects, #DefibScreen)
  19.   DelObjects(getaProp(getaProp(Mobj, #SpecialChild), getaProp(Mobj, #State)))
  20.   MakeDynamic(#DefibScreen, #State, #defib)
  21.   MakeDynamic(#DefibScreen, #DisplayState, #defib)
  22.   AddObjects(getaProp(getaProp(Mobj, #SpecialChild), getaProp(Mobj, #State)))
  23.   set the castNum of sprite getaProp(Mobj, #SpriteNum) to getaProp(getaProp(Mobj, #cast), #defib)
  24.   playSound("H12ekg1.aif", #cast)
  25. end
  26.  
  27. on DoHeartGO
  28.   set Mobj to getaProp(gObjects, #DefibScreen)
  29.   DelObjects(getaProp(getaProp(Mobj, #SpecialChild), getaProp(Mobj, #State)))
  30.   MakeDynamic(#DefibScreen, #State, #Heart)
  31.   MakeDynamic(#DefibScreen, #DisplayState, #Heart)
  32.   AddObjects(getaProp(getaProp(Mobj, #SpecialChild), getaProp(Mobj, #State)))
  33.   set the castNum of sprite getaProp(Mobj, #SpriteNum) to getaProp(getaProp(Mobj, #cast), #Heart)
  34.   playSound("H12ekg2.aif", #cast)
  35. end
  36.